home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 5 / Gekikoh Dennoh Club Vol. 5 (Japan).7z / Gekikoh Dennoh Club Vol. 5 (Japan) (Track 01).bin / games / kenka / kenka2s.lzh / joh_n.inc < prev    next >
Text File  |  1998-05-14  |  3KB  |  213 lines
  1. *---------------------------------------
  2. *
  3. *    ò\Ī
  4. *
  5. *    âjâàü[âgâëâï
  6. *
  7. *    by Shiroh Nakaya
  8. *
  9. *---------------------------------------
  10. joh_n:
  11.     move.w    C_X(a1),d1
  12.     move.w    C_Y(a1),d2
  13.     tst.w    C_LR_F(a1)
  14.     bne    @f
  15.  
  16.     subq.w    #8,d1
  17.     subi.w    #32,d2
  18.     move.w    d1,(a6)+
  19.     move.w    d2,(a6)+
  20.     move.w    d7,(a6)+
  21.     move.w    #$0003,(a6)+
  22.  
  23.     addi.w    #16,d2
  24.     addq.w    #1,d7
  25.     move.w    d1,(a6)+
  26.     move.w    d2,(a6)+
  27.     move.w    d7,(a6)+
  28.     move.w    #$0003,(a6)+
  29.  
  30.     addi.w    #16,d2
  31.     addq.w    #1,d7
  32.     move.w    d1,(a6)+
  33.     move.w    d2,(a6)+
  34.     move.w    d7,(a6)+
  35.     move.w    #$0003,(a6)+
  36.  
  37.     addi.w    #16,d2
  38.     addq.w    #1,d7
  39.     move.w    d1,(a6)+
  40.     move.w    d2,(a6)+
  41.     move.w    d7,(a6)+
  42.     move.w    #$0003,(a6)+
  43.  
  44.     rts
  45. @@:
  46.     subq.w    #8,d1
  47.     subi.w    #32,d2
  48.     addi.w    #$4000,d7
  49.     move.w    d1,(a6)+
  50.     move.w    d2,(a6)+
  51.     move.w    d7,(a6)+
  52.     move.w    #$0003,(a6)+
  53.  
  54.     addi.w    #16,d2
  55.     addq.w    #1,d7
  56.     move.w    d1,(a6)+
  57.     move.w    d2,(a6)+
  58.     move.w    d7,(a6)+
  59.     move.w    #$0003,(a6)+
  60.  
  61.     addi.w    #16,d2
  62.     addq.w    #1,d7
  63.     move.w    d1,(a6)+
  64.     move.w    d2,(a6)+
  65.     move.w    d7,(a6)+
  66.     move.w    #$0003,(a6)+
  67.  
  68.     addi.w    #16,d2
  69.     addq.w    #1,d7
  70.     move.w    d1,(a6)+
  71.     move.w    d2,(a6)+
  72.     move.w    d7,(a6)+
  73.     move.w    #$0003,(a6)+
  74.  
  75.     rts
  76. *---------------------------------------
  77. joh_for:
  78.     move.w    C_X(a1),d1
  79.     move.w    C_Y(a1),d2
  80.     tst.w    C_LR_F(a1)
  81.     bne    @f
  82.  
  83.     subq.w    #8,d1
  84.     subi.w    #32,d2
  85.     addi.w    #$0045,d7
  86.     move.w    d1,(a6)+
  87.     move.w    d2,(a6)+
  88.     move.w    d7,(a6)+
  89.     move.w    #$0003,(a6)+
  90.  
  91.     addi.w    #16,d2
  92.     addq.w    #1,d7
  93.     move.w    d1,(a6)+
  94.     move.w    d2,(a6)+
  95.     move.w    d7,(a6)+
  96.     move.w    #$0003,(a6)+
  97.  
  98.     addi.w    #16,d2
  99.     addq.w    #1,d7
  100.     move.w    d1,(a6)+
  101.     move.w    d2,(a6)+
  102.     move.w    d7,(a6)+
  103.     move.w    #$0003,(a6)+
  104.  
  105.     addi.w    #16,d2
  106.     addq.w    #1,d7
  107.     move.w    d1,(a6)+
  108.     move.w    d2,(a6)+
  109.     move.w    d7,(a6)+
  110.     move.w    #$0003,(a6)+
  111.  
  112.     rts
  113. @@:
  114.     subq.w    #8,d1
  115.     subi.w    #32,d2
  116.     addi.w    #$4045,d7
  117.     move.w    d1,(a6)+
  118.     move.w    d2,(a6)+
  119.     move.w    d7,(a6)+
  120.     move.w    #$0003,(a6)+
  121.  
  122.     addi.w    #16,d2
  123.     addq.w    #1,d7
  124.     move.w    d1,(a6)+
  125.     move.w    d2,(a6)+
  126.     move.w    d7,(a6)+
  127.     move.w    #$0003,(a6)+
  128.  
  129.     addi.w    #16,d2
  130.     addq.w    #1,d7
  131.     move.w    d1,(a6)+
  132.     move.w    d2,(a6)+
  133.     move.w    d7,(a6)+
  134.     move.w    #$0003,(a6)+
  135.  
  136.     addi.w    #16,d2
  137.     addq.w    #1,d7
  138.     move.w    d1,(a6)+
  139.     move.w    d2,(a6)+
  140.     move.w    d7,(a6)+
  141.     move.w    #$0003,(a6)+
  142.  
  143.     rts
  144. *---------------------------------------
  145. joh_back:
  146.     move.w    C_X(a1),d1
  147.     move.w    C_Y(a1),d2
  148.     tst.w    C_LR_F(a1)
  149.     bne    @f
  150.  
  151.     subq.w    #8,d1
  152.     subi.w    #32,d2
  153.     addi.w    #$0049,d7
  154.     move.w    d1,(a6)+
  155.     move.w    d2,(a6)+
  156.     move.w    d7,(a6)+
  157.     move.w    #$0003,(a6)+
  158.  
  159.     addi.w    #16,d2
  160.     addq.w    #1,d7
  161.     move.w    d1,(a6)+
  162.     move.w    d2,(a6)+
  163.     move.w    d7,(a6)+
  164.     move.w    #$0003,(a6)+
  165.  
  166.     addi.w    #16,d2
  167.     addq.w    #1,d7
  168.     move.w    d1,(a6)+
  169.     move.w    d2,(a6)+
  170.     move.w    d7,(a6)+
  171.     move.w    #$0003,(a6)+
  172.  
  173.     addi.w    #16,d2
  174.     addq.w    #1,d7
  175.     move.w    d1,(a6)+
  176.     move.w    d2,(a6)+
  177.     move.w    d7,(a6)+
  178.     move.w    #$0003,(a6)+
  179.  
  180.     rts
  181. @@:
  182.     subq.w    #8,d1
  183.     subi.w    #32,d2
  184.     addi.w    #$4049,d7
  185.     move.w    d1,(a6)+
  186.     move.w    d2,(a6)+
  187.     move.w    d7,(a6)+
  188.     move.w    #$0003,(a6)+
  189.  
  190.     addi.w    #16,d2
  191.     addq.w    #1,d7
  192.     move.w    d1,(a6)+
  193.     move.w    d2,(a6)+
  194.     move.w    d7,(a6)+
  195.     move.w    #$0003,(a6)+
  196.  
  197.     addi.w    #16,d2
  198.     addq.w    #1,d7
  199.     move.w    d1,(a6)+
  200.     move.w    d2,(a6)+
  201.     move.w    d7,(a6)+
  202.     move.w    #$0003,(a6)+
  203.  
  204.     addi.w    #16,d2
  205.     addq.w    #1,d7
  206.     move.w    d1,(a6)+
  207.     move.w    d2,(a6)+
  208.     move.w    d7,(a6)+
  209.     move.w    #$0003,(a6)+
  210.  
  211.     rts
  212. *---------------------------------------
  213.